﻿Namespace SRAGWM
    Public Class Database

        Dim _DBType, _DBName, _Source, _ConnectionName As String

        Property DBType()
            Get
                Return _DBType
            End Get
            Set(ByVal value)
                _DBType = value
            End Set
        End Property

        Property DBName()
            Get
                Return _DBName
            End Get
            Set(ByVal value)
                _DBName = value
            End Set
        End Property

        Property Source()
            Get
                Return _Source
            End Get
            Set(ByVal value)
                _Source = value
            End Set
        End Property

        Property ConnectionName()
            Get
                Return _ConnectionName
            End Get
            Set(ByVal value)
                _ConnectionName = value
            End Set
        End Property

        Public Sub New(ByVal pDBType As String, ByVal pDBName As String, ByVal pSource As String, _
                       ByVal pConnectionName As String)

            _DBType = pDBType
            _DBName = pDBName
            _Source = pSource
            _ConnectionName = pConnectionName

        End Sub
    End Class
End Namespace